home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ASME's Mechanical Engine…ing Toolkit 1997 December
/
ASME's Mechanical Engineering Toolkit 1997 December.iso
/
basic
/
qtool4.lzh
/
AESHARED.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-02-13
|
1KB
|
22 lines
OPTION BASE 0
DIM idx.nam$(10%),xk$(10%,6%),xh%(10%,4%) ' Index variables
DIM ae.screens%(10000%) ' Screen holding
DIM ae.fg%(10%),ae.bg%(10%),ae.hg%(10%) ' Colors
DIM dialog$(8%) ' Dialog text
DIM ae.menu$(70%),ae.op%(70%),ae.hlp%(70%) ' Menu options
DIM ae.ffld$(300%),ae.ffpr%(300%),ae.flp%(20%,2%) ' File fielding
DIM ae.dirs$(10%) ' AE directories
COMMON SHARED /AE.INDEX/ idx.nam$(),xk$(),xh%() ' Index variables
COMMON SHARED /AE.COLOR/ ae.fg%(),ae.bg%(),ae.hg%() ' Color attributes
COMMON SHARED /AE.ERR/ aesb.fatal%,aesb.warning% ' Sub Routine Errors
COMMON SHARED /AE.SCBUF/ ae.screens%(),ae.sstack% ' Screen control
COMMON SHARED /AE.DIALOG/ dialog$() ' Dialog boxes
COMMON SHARED /AE.MENUS.1/ ae.menu$(),ae.op%(),ae.hlp%() ' Pull Down Menus
COMMON SHARED /AE.MENUS.2/ mcount%,menu%,menop% ' Pull Down Menus
COMMON SHARED /AE.FIELDS/ ae.ffld$(),ae.ffpr%(),ae.flp%() ' File fielding
COMMON SHARED /AE.CONTROL/ ae.dirs$(),ae.sernum$ ' Controls